home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / go / prog / golatex.taz / golatex / mf / go1white.mf < prev    next >
Encoding:
Text File  |  1992-11-16  |  35.3 KB  |  1,343 lines
  1. mode_setup;
  2.  
  3. define_pixels(size);
  4. define_pixels(line_thickness,border_line_thickness);
  5. define_pixels(dig_h,dig_w,dig_pen);
  6.  
  7. picture digit[];
  8. picture white_circle;
  9.  
  10. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  11.  
  12. def digit_zero =
  13.   currentpicture := nullpicture;
  14.   pickup pencircle scaled dig_pen;
  15.   lft x1=0; y1=.5dig_h;
  16.   x2=.5dig_w; top y2=dig_h;
  17.   rt x3=dig_w; y3=.5dig_h;
  18.   x4=.5dig_w; bot y4=0;
  19.   draw z1...z2...z3...z4...cycle;
  20.   digit[0] := currentpicture;
  21.   clearxy; clearit; clearpen;
  22. enddef;
  23.  
  24. def digit_one =
  25.   currentpicture := nullpicture;
  26.   pickup pencircle scaled dig_pen;
  27.   x1=.5dig_w; bot y1=0;
  28.   x2=.5dig_w; top y2=dig_h;
  29.   draw z1--z2;
  30.   digit[1] := currentpicture;
  31.   clearxy; clearit; clearpen;
  32. enddef;
  33.  
  34. def digit_two =
  35.   currentpicture := nullpicture;
  36.   pickup pencircle scaled dig_pen;
  37.   lft x1=0; y1=.75dig_h;
  38.   x2=.5dig_w; top y2=dig_h;
  39.   rt x3=.8dig_w; y3=.9dig_h;
  40.   lft x4=0; bot y4=0;
  41.   draw z1{up}...z2...z3..{(-.8dig_w,-dig_h)}z4;
  42.   z5=z4;
  43.   rt x6=dig_w; bot y6=0;
  44.   draw z5--z6;
  45.   digit[2] := currentpicture;
  46.   clearxy; clearit; clearpen;
  47. enddef;
  48.  
  49. def digit_three =
  50.   currentpicture := nullpicture;
  51.   pickup pencircle scaled dig_pen;
  52.   lft x1=.08dig_w; y1=.8dig_h;
  53.   x2=.5dig_w; top y2=dig_h; 
  54.   rt x3=.92dig_w; y3=y1;
  55.   z4=(.5dig_w,.52dig_h);
  56.   rt x5=dig_w; y5=.2dig_h;
  57.   x6=.65dig_w; bot y6=0;
  58.   lft x7=0; y7=y5;
  59.   draw z1{up}..z2..z3..{left}z4{right}..z5..z6...{up}z7;
  60.   digit[3] := currentpicture;
  61.   clearxy; clearit; clearpen;
  62. enddef;
  63.  
  64. def digit_four =
  65.   currentpicture := nullpicture;
  66.   pickup pencircle scaled dig_pen;
  67.   x1=.75dig_w; bot y1=0;
  68.   x2=x1; top y2=dig_h;
  69.   lft x3=0; y3=.3dig_h;
  70.   rt x4=dig_w; y4=y3;
  71.   draw z1--z2--z3--z4;
  72.   digit[4] := currentpicture;
  73.   clearxy; clearit; clearpen;
  74. enddef;
  75.  
  76. def digit_five =
  77.   currentpicture := nullpicture;
  78.   pickup pencircle scaled dig_pen;
  79.   rt x1=.95dig_w; top y1=dig_h;
  80.   lft x2=.05dig_w; y2=y1;
  81.   lft x3=0; y3=.45dig_h;
  82.   z4=(.5dig_w,.6dig_h);
  83.   rt x5=dig_w; y5=.3dig_h;
  84.   x6=.65dig_w; bot y6=0;
  85.   lft x7=0; y7=.15dig_h;
  86.   draw z1--z2--z3{up}..z4..z5..z6...{up}z7;
  87.   digit[5] := currentpicture;
  88.   clearxy; clearit; clearpen;
  89. enddef;
  90.  
  91. def digit_six =
  92.   currentpicture := nullpicture;
  93.   pickup pencircle scaled dig_pen;
  94.   rt x1=dig_w; y1=.8dig_h;
  95.   x2=.45dig_w; top y2=dig_h;
  96.   lft x3=0; y3=.5dig_h;
  97.   x4=.5dig_w; bot y4=0;
  98.   rt x5=dig_w; y5=.3dig_h;
  99.   z6=(.53dig_w,.55dig_h);
  100.   z7=(.03dig_w+.6dig_pen,.25dig_h);
  101.   draw z1{up}...z2...z3...z4...z5...{left}z6{left}...{(1,-10)}z7;
  102.   digit[6] := currentpicture;
  103.   clearxy; clearit; clearpen;
  104. enddef;
  105.  
  106. def digit_seven =
  107.   currentpicture := nullpicture;
  108.   pickup pencircle scaled dig_pen;
  109.   lft x1=0; top y1=dig_h;
  110.   rt x2=dig_w; y2=y1;
  111.   lft x3=.2dig_w; bot y3=0;
  112.   draw z1--z2--z3;
  113.   digit[7] := currentpicture;
  114.   clearxy; clearit; clearpen;
  115. enddef;
  116.  
  117. def digit_eight =
  118.   currentpicture := nullpicture;
  119.   pickup pencircle scaled dig_pen;
  120.   lft x1=.08dig_w; y1=.75dig_h;
  121.   x2=.5dig_w; top y2=dig_h;
  122.   rt x3=.92dig_w; y3=y1;
  123.   z4=(.5dig_w,.55dig_h);
  124.   rt x5=dig_w; y5=.25dig_h;
  125.   x6=.5dig_w; bot y6=0;
  126.   lft x7=0; y7=y5;
  127.   draw z1...z2...z3...z4...cycle; 
  128.   draw z4...z5...z6...z7...cycle;
  129.   digit[8] := currentpicture;
  130.   clearxy; clearit; clearpen;
  131. enddef;
  132.  
  133. def digit_nine =
  134.   currentpicture := nullpicture;
  135.   currentpicture := digit[6] rotated 180;
  136.   digit[9] := currentpicture shifted (dig_w,dig_h);
  137.   clearxy; clearit; clearpen;
  138. enddef;
  139.  
  140. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  141.  
  142. digit_zero; digit_one; digit_two; digit_three; digit_four;
  143. digit_five; digit_six; digit_seven; digit_eight; digit_nine;
  144.  
  145. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  146.  
  147. beginchar(0,24/22size#,23/22size#,1/22size#); "pion bialy";
  148.   pickup pencircle scaled line_thickness;
  149.   % pickup pencircle scaled 2/10size#;
  150.   lft x1=1/24w; y1=11/24w;
  151.   rt x2=23/24w; y2=11/24w;
  152.   draw z1..z2..cycle;
  153.   white_circle := currentpicture;
  154. showit;
  155. endchar;
  156.  
  157. % stop"";
  158.  
  159. beginchar(1,24/22size#,23/22size#,1/22size#); "pion bialy z 1";
  160.   currentpicture := white_circle 
  161.        + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  162. showit;
  163. endchar;
  164.  
  165. % stop"";
  166.  
  167. beginchar(2,24/22size#,23/22size#,1/22size#); "pion bialy z 2";
  168.   currentpicture := white_circle 
  169.        + digit[2] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  170. showit;
  171. endchar;
  172.  
  173. % stop"";
  174.  
  175. beginchar(3,24/22size#,23/22size#,1/22size#); "pion bialy z 3";
  176.   currentpicture := white_circle 
  177.        + digit[3] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  178. showit;
  179. endchar;
  180.  
  181. % stop"";
  182.  
  183. beginchar(4,24/22size#,23/22size#,1/22size#); "pion bialy z 4";
  184.   currentpicture := white_circle 
  185.        + digit[4] shifted (.5w-.6dig_w,11/24w-.5dig_h);
  186. showit;
  187. endchar;
  188.  
  189. % stop"";
  190.  
  191. beginchar(5,24/22size#,23/22size#,1/22size#); "pion bialy z 5";
  192.   currentpicture := white_circle 
  193.        + digit[5] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  194. showit;
  195. endchar;
  196.  
  197. % stop"";
  198.  
  199. beginchar(6,24/22size#,23/22size#,1/22size#); "pion bialy z 6";
  200.   currentpicture := white_circle 
  201.        + digit[6] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  202. showit;
  203. endchar;
  204.  
  205. % stop"";
  206.  
  207. beginchar(7,24/22size#,23/22size#,1/22size#); "pion bialy z 7";
  208.   currentpicture := white_circle 
  209.        + digit[7] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  210. showit;
  211. endchar;
  212.  
  213. % stop"";
  214.  
  215. beginchar(8,24/22size#,23/22size#,1/22size#); "pion bialy z 8";
  216.   currentpicture := white_circle 
  217.        + digit[8] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  218. showit;
  219. endchar;
  220.  
  221. % stop"";
  222.  
  223. beginchar(9,24/22size#,23/22size#,1/22size#); "pion bialy z 9";
  224.   currentpicture := white_circle 
  225.        + digit[9] shifted (.5w-.5dig_w,11/24w-.5dig_h);
  226. showit;
  227. endchar;
  228.  
  229. % stop"";
  230.  
  231. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  232.  
  233. dig_w := .7dig_w;
  234. dig_pen := .7dig_pen;
  235.  
  236. digit_zero; digit_one; digit_two; digit_three; digit_four;
  237. digit_five; digit_six; digit_seven; digit_eight; digit_nine;
  238.  
  239. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  240.  
  241. beginchar(10,24/22size#,23/22size#,1/22size#); "pion bialy z 10";
  242.   currentpicture := white_circle 
  243.        + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  244.        + digit[0] shifted (.5w,11/24w-.5dig_h);
  245. showit;
  246. endchar;
  247.  
  248. % stop"";
  249.  
  250. beginchar(11,24/22size#,23/22size#,1/22size#); "pion bialy z 11";
  251.   currentpicture := white_circle 
  252.        + digit[1] shifted (.5w-dig_w,11/24w-.5dig_h)
  253.        + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  254. showit;
  255. endchar;
  256.  
  257. % stop"";
  258.  
  259. beginchar(12,24/22size#,23/22size#,1/22size#); "pion bialy z 12";
  260.   currentpicture := white_circle 
  261.        + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  262.        + digit[2] shifted (.5w,11/24w-.5dig_h);
  263. showit;
  264. endchar;
  265.  
  266. % stop"";
  267.  
  268. beginchar(13,24/22size#,23/22size#,1/22size#); "pion czarny z 13";
  269.   currentpicture := white_circle 
  270.        + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  271.        + digit[3] shifted (.5w,11/24w-.5dig_h);
  272. showit;
  273. endchar;
  274.  
  275. % stop"";
  276.  
  277. beginchar(14,24/22size#,23/22size#,1/22size#); "pion bialy z 14";
  278.   currentpicture := white_circle 
  279.        + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  280.        + digit[4] shifted (.5w,11/24w-.5dig_h);
  281. showit;
  282. endchar;
  283.  
  284. % stop"";
  285.  
  286. beginchar(15,24/22size#,23/22size#,1/22size#); "pion czarny z 15";
  287.   currentpicture := white_circle 
  288.        + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  289.        + digit[5] shifted (.5w,11/24w-.5dig_h);
  290. showit;
  291. endchar;
  292.  
  293. % stop"";
  294.  
  295. beginchar(16,24/22size#,23/22size#,1/22size#); "pion bialy z 16";
  296.   currentpicture := white_circle 
  297.        + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  298.        + digit[6] shifted (.5w,11/24w-.5dig_h);
  299. showit;
  300. endchar;
  301.  
  302. % stop"";
  303.  
  304. beginchar(17,24/22size#,23/22size#,1/22size#); "pion czarny z 17";
  305.   currentpicture := white_circle 
  306.        + digit[1] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  307.        + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  308. showit;
  309. endchar;
  310.  
  311. % stop"";
  312.  
  313. beginchar(18,24/22size#,23/22size#,1/22size#); "pion bialy z 18";
  314.   currentpicture := white_circle 
  315.        + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  316.        + digit[8] shifted (.5w,11/24w-.5dig_h);
  317. showit;
  318. endchar;
  319.  
  320. % stop"";
  321.  
  322. beginchar(19,24/22size#,23/22size#,1/22size#); "pion czarny z 19";
  323.   currentpicture := white_circle 
  324.        + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  325.        + digit[9] shifted (.5w,11/24w-.5dig_h);   
  326. showit;
  327. endchar;
  328.  
  329. % stop"";
  330.  
  331. beginchar(20,24/22size#,23/22size#,1/22size#); "pion bialy z 20";
  332.   currentpicture := white_circle 
  333.        + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  334.        + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  335. showit;
  336. endchar;
  337.  
  338. % stop"";
  339.  
  340. beginchar(21,24/22size#,23/22size#,1/22size#); "pion czarny z 21";
  341.   currentpicture := white_circle 
  342.        + digit[2] shifted (.5w-.9dig_w,11/24w-.5dig_h)
  343.        + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  344. showit;
  345. endchar;
  346.  
  347. % stop"";
  348.  
  349. beginchar(22,24/22size#,23/22size#,1/22size#); "pion bialy z 22";
  350.   currentpicture := white_circle 
  351.        + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  352.        + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  353. showit;
  354. endchar;
  355.  
  356. % stop"";
  357.  
  358. beginchar(23,24/22size#,23/22size#,1/22size#); "pion czarny z 23";
  359.   currentpicture := white_circle 
  360.        + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  361.        + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  362. showit;
  363. endchar;
  364.  
  365. % stop"";
  366.  
  367. beginchar(24,24/22size#,23/22size#,1/22size#); "pion bialy z 24";
  368.   currentpicture := white_circle 
  369.        + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  370.        + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  371. showit;
  372. endchar;
  373.  
  374. % stop"";
  375.  
  376. beginchar(25,24/22size#,23/22size#,1/22size#); "pion czarny z 25";
  377.   currentpicture := white_circle 
  378.        + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  379.        + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  380. showit;
  381. endchar;
  382.  
  383. % stop"";
  384.  
  385. beginchar(26,24/22size#,23/22size#,1/22size#); "pion bialy z 26";
  386.   currentpicture := white_circle 
  387.        + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  388.        + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  389. showit;
  390. endchar;
  391.  
  392. % stop"";
  393.  
  394. beginchar(27,24/22size#,23/22size#,1/22size#); "pion czarny z 27";
  395.   currentpicture := white_circle 
  396.        + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  397.        + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  398. showit;
  399. endchar;
  400.  
  401. % stop"";
  402.  
  403. beginchar(28,24/22size#,23/22size#,1/22size#); "pion bialy z 28";
  404.   currentpicture := white_circle 
  405.        + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  406.        + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  407. showit;
  408. endchar;
  409.  
  410. % stop"";
  411.  
  412. beginchar(29,24/22size#,23/22size#,1/22size#); "pion czarny z 29";
  413.   currentpicture := white_circle 
  414.        + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  415.        + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  416. showit;
  417. endchar;
  418.  
  419. % stop"";
  420.  
  421. beginchar(30,24/22size#,23/22size#,1/22size#); "pion bialy z 30";
  422.   currentpicture := white_circle 
  423.        + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  424.        + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  425. showit;
  426. endchar;
  427.  
  428. % stop"";
  429.  
  430. beginchar(31,24/22size#,23/22size#,1/22size#); "pion czarny z 31";
  431.   currentpicture := white_circle 
  432.        + digit[3] shifted (.5w-.9dig_w,11/24w-.5dig_h)
  433.        + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  434. showit;
  435. endchar;
  436.  
  437. % stop"";
  438.  
  439. beginchar(32,24/22size#,23/22size#,1/22size#); "pion bialy z 32";
  440.   currentpicture := white_circle 
  441.        + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  442.        + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  443. showit;
  444. endchar;
  445.  
  446. % stop"";
  447.  
  448. beginchar(33,24/22size#,23/22size#,1/22size#); "pion czarny z 33";
  449.   currentpicture := white_circle 
  450.        + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  451.        + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  452. showit;
  453. endchar;
  454.  
  455. % stop"";
  456.  
  457. beginchar(34,24/22size#,23/22size#,1/22size#); "pion bialy z 34";
  458.   currentpicture := white_circle 
  459.        + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  460.        + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  461. showit;
  462. endchar;
  463.  
  464. % stop"";
  465.  
  466. beginchar(35,24/22size#,23/22size#,1/22size#); "pion czarny z 35";
  467.   currentpicture := white_circle 
  468.        + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  469.        + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  470. showit;
  471. endchar;
  472.  
  473. % stop"";
  474.  
  475. beginchar(36,24/22size#,23/22size#,1/22size#); "pion bialy z 36";
  476.   currentpicture := white_circle 
  477.        + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  478.        + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  479. showit;
  480. endchar;
  481.  
  482. % stop"";
  483.  
  484. beginchar(37,24/22size#,23/22size#,1/22size#); "pion czarny z 37";
  485.   currentpicture := white_circle 
  486.        + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  487.        + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  488. showit;
  489. endchar;
  490.  
  491. % stop"";
  492.  
  493. beginchar(38,24/22size#,23/22size#,1/22size#); "pion bialy z 38";
  494.   currentpicture := white_circle 
  495.        + digit[3] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  496.        + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  497. showit;
  498. endchar;
  499.  
  500. % stop"";
  501.  
  502. beginchar(39,24/22size#,23/22size#,1/22size#); "pion czarny z 39";
  503.   currentpicture := white_circle 
  504.        + digit[2] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  505.        + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  506. showit;
  507. endchar;
  508.  
  509. % stop"";
  510.  
  511. beginchar(40,24/22size#,23/22size#,1/22size#); "pion bialy z 40";
  512.   currentpicture := white_circle 
  513.        + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  514.        + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  515. showit;
  516. endchar;
  517.  
  518. % stop"";
  519.  
  520. beginchar(41,24/22size#,23/22size#,1/22size#); "pion czarny z 41";
  521.   currentpicture := white_circle 
  522.        + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  523.        + digit[1] shifted (.5w,11/24w-.5dig_h);
  524. showit;
  525. endchar;
  526.  
  527. % stop"";
  528.  
  529. beginchar(42,24/22size#,23/22size#,1/22size#); "pion bialy z 42";
  530.   currentpicture := white_circle 
  531.        + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  532.        + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  533. showit;
  534. endchar;
  535.  
  536. % stop"";
  537.  
  538. beginchar(43,24/22size#,23/22size#,1/22size#); "pion czarny z 43";
  539.   currentpicture := white_circle 
  540.        + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  541.        + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  542. showit;
  543. endchar;
  544.  
  545. % stop"";
  546.  
  547. beginchar(44,24/22size#,23/22size#,1/22size#); "pion bialy z 44";
  548.   currentpicture := white_circle 
  549.        + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  550.        + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  551. showit;
  552. endchar;
  553.  
  554. % stop"";
  555.  
  556. beginchar(45,24/22size#,23/22size#,1/22size#); "pion czarny z 45";
  557.   currentpicture := white_circle 
  558.        + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  559.        + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  560. showit;
  561. endchar;
  562.  
  563. % stop"";
  564.  
  565. beginchar(46,24/22size#,23/22size#,1/22size#); "pion bialy z 46";
  566.   currentpicture := white_circle 
  567.        + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  568.        + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  569. showit;
  570. endchar;
  571.  
  572. % stop"";
  573.  
  574. beginchar(47,24/22size#,23/22size#,1/22size#); "pion czarny z 47";
  575.   currentpicture := white_circle 
  576.        + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  577.        + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  578. showit;
  579. endchar;
  580.  
  581. % stop"";
  582.  
  583. beginchar(48,24/22size#,23/22size#,1/22size#); "pion bialy z 48";
  584.   currentpicture := white_circle 
  585.        + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  586.        + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  587. showit;
  588. endchar;
  589.  
  590. % stop"";
  591.  
  592. beginchar(49,24/22size#,23/22size#,1/22size#); "pion czarny z 49";
  593.   currentpicture := white_circle 
  594.        + digit[4] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  595.        + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  596. showit;
  597. endchar;
  598.  
  599. % stop"";
  600.  
  601. beginchar(50,24/22size#,23/22size#,1/22size#); "pion bialy z 50";
  602.   currentpicture := white_circle 
  603.        + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  604.        + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  605. showit;
  606. endchar;
  607.  
  608. % stop"";
  609.  
  610. beginchar(51,24/22size#,23/22size#,1/22size#); "pion czarny z 51";
  611.   currentpicture := white_circle 
  612.        + digit[5] shifted (.5w-.9dig_w,11/24w-.5dig_h)
  613.        + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  614. showit;
  615. endchar;
  616.  
  617. % stop"";
  618.  
  619. beginchar(52,24/22size#,23/22size#,1/22size#); "pion bialy z 52";
  620.   currentpicture := white_circle 
  621.        + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  622.        + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  623. showit;
  624. endchar;
  625.  
  626. % stop"";
  627.  
  628. beginchar(53,24/22size#,23/22size#,1/22size#); "pion czarny z 53";
  629.   currentpicture := white_circle 
  630.        + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  631.        + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  632. showit;
  633. endchar;
  634.  
  635. % stop"";
  636.  
  637. beginchar(54,24/22size#,23/22size#,1/22size#); "pion bialy z 54";
  638.   currentpicture := white_circle 
  639.        + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  640.        + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  641. showit;
  642. endchar;
  643.  
  644. % stop"";
  645.  
  646. beginchar(55,24/22size#,23/22size#,1/22size#); "pion czarny z 55";
  647.   currentpicture := white_circle 
  648.        + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  649.        + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  650. showit;
  651. endchar;
  652.  
  653. % stop"";
  654.  
  655. beginchar(56,24/22size#,23/22size#,1/22size#); "pion bialy z 56";
  656.   currentpicture := white_circle 
  657.        + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  658.        + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  659. showit;
  660. endchar;
  661.  
  662. % stop"";
  663.  
  664. beginchar(57,24/22size#,23/22size#,1/22size#); "pion czarny z 57";
  665.   currentpicture := white_circle 
  666.        + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  667.        + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  668. showit;
  669. endchar;
  670.  
  671. % stop"";
  672.  
  673. beginchar(58,24/22size#,23/22size#,1/22size#); "pion bialy z 58";
  674.   currentpicture := white_circle 
  675.        + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  676.        + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  677. showit;
  678. endchar;
  679.  
  680. % stop"";
  681.  
  682. beginchar(59,24/22size#,23/22size#,1/22size#); "pion czarny z 59";
  683.   currentpicture := white_circle 
  684.        + digit[5] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  685.        + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  686. showit;
  687. endchar;
  688.  
  689. % stop"";
  690.  
  691. beginchar(60,24/22size#,23/22size#,1/22size#); "pion bialy z 60";
  692.   currentpicture := white_circle 
  693.        + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  694.        + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  695. showit;
  696. endchar;
  697.  
  698. % stop"";
  699.  
  700. beginchar(61,24/22size#,23/22size#,1/22size#); "pion czarny z 61";
  701.   currentpicture := white_circle 
  702.        + digit[6] shifted (.5w-.9dig_w,11/24w-.5dig_h)
  703.        + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  704. showit;
  705. endchar;
  706.  
  707. % stop"";
  708.  
  709. beginchar(62,24/22size#,23/22size#,1/22size#); "pion bialy z 62";
  710.   currentpicture := white_circle 
  711.        + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  712.        + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  713. showit;
  714. endchar;
  715.  
  716. % stop"";
  717.  
  718. beginchar(63,24/22size#,23/22size#,1/22size#); "pion czarny z 63";
  719.   currentpicture := white_circle 
  720.        + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  721.        + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  722. showit;
  723. endchar;
  724.  
  725. % stop"";
  726.  
  727. beginchar(64,24/22size#,23/22size#,1/22size#); "pion bialy z 64";
  728.   currentpicture := white_circle 
  729.        + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  730.        + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  731. showit;
  732. endchar;
  733.  
  734. % stop"";
  735.  
  736. beginchar(65,24/22size#,23/22size#,1/22size#); "pion czarny z 65";
  737.   currentpicture := white_circle 
  738.        + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  739.        + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  740. showit;
  741. endchar;
  742.  
  743. % stop"";
  744.  
  745. beginchar(66,24/22size#,23/22size#,1/22size#); "pion bialy z 66";
  746.   currentpicture := white_circle 
  747.        + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  748.        + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  749. showit;
  750. endchar;
  751.  
  752. % stop"";
  753.  
  754. beginchar(67,24/22size#,23/22size#,1/22size#); "pion czarny z 67";
  755.   currentpicture := white_circle 
  756.        + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  757.        + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  758. showit;
  759. endchar;
  760.  
  761. % stop"";
  762.  
  763. beginchar(68,24/22size#,23/22size#,1/22size#); "pion bialy z 68";
  764.   currentpicture := white_circle 
  765.        + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  766.        + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  767. showit;
  768. endchar;
  769.  
  770. % stop"";
  771.  
  772. beginchar(69,24/22size#,23/22size#,1/22size#); "pion czarny z 69";
  773.   currentpicture := white_circle 
  774.        + digit[6] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  775.        + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  776. showit;
  777. endchar;
  778.  
  779. % stop"";
  780.  
  781. beginchar(70,24/22size#,23/22size#,1/22size#); "pion bialy z 70";
  782.   currentpicture := white_circle 
  783.        + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  784.        + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  785. showit;
  786. endchar;
  787.  
  788. % stop"";
  789.  
  790. beginchar(71,24/22size#,23/22size#,1/22size#); "pion czarny z 71";
  791.   currentpicture := white_circle 
  792.        + digit[7] shifted (.5w-.9dig_w,11/24w-.5dig_h)
  793.        + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  794. showit;
  795. endchar;
  796.  
  797. % stop"";
  798.  
  799. beginchar(72,24/22size#,23/22size#,1/22size#); "pion bialy z 72";
  800.   currentpicture := white_circle 
  801.        + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  802.        + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  803. showit;
  804. endchar;
  805.  
  806. % stop"";
  807.  
  808. beginchar(73,24/22size#,23/22size#,1/22size#); "pion czarny z 73";
  809.   currentpicture := white_circle 
  810.        + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  811.        + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  812. showit;
  813. endchar;
  814.  
  815. % stop"";
  816.  
  817. beginchar(74,24/22size#,23/22size#,1/22size#); "pion bialy z 74";
  818.   currentpicture := white_circle 
  819.        + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  820.        + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  821. showit;
  822. endchar;
  823.  
  824. % stop"";
  825.  
  826. beginchar(75,24/22size#,23/22size#,1/22size#); "pion czarny z 75";
  827.   currentpicture := white_circle 
  828.        + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  829.        + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  830. showit;
  831. endchar;
  832.  
  833. % stop"";
  834.  
  835. beginchar(76,24/22size#,23/22size#,1/22size#); "pion bialy z 76";
  836.   currentpicture := white_circle 
  837.        + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  838.        + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  839. showit;
  840. endchar;
  841.  
  842. % stop"";
  843.  
  844. beginchar(77,24/22size#,23/22size#,1/22size#); "pion czarny z 77";
  845.   currentpicture := white_circle 
  846.        + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  847.        + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  848. showit;
  849. endchar;
  850.  
  851. % stop"";
  852.  
  853. beginchar(78,24/22size#,23/22size#,1/22size#); "pion bialy z 78";
  854.   currentpicture := white_circle 
  855.        + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  856.        + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  857. showit;
  858. endchar;
  859.  
  860. % stop"";
  861.  
  862. beginchar(79,24/22size#,23/22size#,1/22size#); "pion czarny z 79";
  863.   currentpicture := white_circle 
  864.        + digit[7] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  865.        + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  866. showit;
  867. endchar;
  868.  
  869. % stop"";
  870.  
  871. beginchar(80,24/22size#,23/22size#,1/22size#); "pion bialy z 80";
  872.   currentpicture := white_circle 
  873.        + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  874.        + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  875. showit;
  876. endchar;
  877.  
  878. % stop"";
  879.  
  880. beginchar(81,24/22size#,23/22size#,1/22size#); "pion czarny z 81";
  881.   currentpicture := white_circle 
  882.        + digit[8] shifted (.5w-.9dig_w,11/24w-.5dig_h)
  883.        + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  884. showit;
  885. endchar;
  886.  
  887. % stop"";
  888.  
  889. beginchar(82,24/22size#,23/22size#,1/22size#); "pion bialy z 82";
  890.   currentpicture := white_circle 
  891.        + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  892.        + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  893. showit;
  894. endchar;
  895.  
  896. % stop"";
  897.  
  898. beginchar(83,24/22size#,23/22size#,1/22size#); "pion czarny z 83";
  899.   currentpicture := white_circle 
  900.        + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  901.        + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  902. showit;
  903. endchar;
  904.  
  905. % stop"";
  906.  
  907. beginchar(84,24/22size#,23/22size#,1/22size#); "pion bialy z 84";
  908.   currentpicture := white_circle 
  909.        + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  910.        + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  911. showit;
  912. endchar;
  913.  
  914. % stop"";
  915.  
  916. beginchar(85,24/22size#,23/22size#,1/22size#); "pion czarny z 85";
  917.   currentpicture := white_circle 
  918.        + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  919.        + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  920. showit;
  921. endchar;
  922.  
  923. % stop"";
  924.  
  925. beginchar(86,24/22size#,23/22size#,1/22size#); "pion bialy z 86";
  926.   currentpicture := white_circle 
  927.        + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  928.        + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  929. showit;
  930. endchar;
  931.  
  932. % stop"";
  933.  
  934. beginchar(87,24/22size#,23/22size#,1/22size#); "pion czarny z 87";
  935.   currentpicture := white_circle 
  936.        + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  937.        + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  938. showit;
  939. endchar;
  940.  
  941. % stop"";
  942.  
  943. beginchar(88,24/22size#,23/22size#,1/22size#); "pion bialy z 88";
  944.   currentpicture := white_circle 
  945.        + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  946.        + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  947. showit;
  948. endchar;
  949.  
  950. % stop"";
  951.  
  952. beginchar(89,24/22size#,23/22size#,1/22size#); "pion czarny z 89";
  953.   currentpicture := white_circle 
  954.        + digit[8] shifted (.5w-1.1dig_w,11/24w-.5dig_h)
  955.        + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  956. showit;
  957. endchar;
  958.  
  959. % stop"";
  960.  
  961. beginchar(90,24/22size#,23/22size#,1/22size#); "pion bialy z 90";
  962.   currentpicture := white_circle 
  963.        + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
  964.        + digit[0] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  965. showit;
  966. endchar;
  967.  
  968. % stop"";
  969.  
  970. beginchar(91,24/22size#,23/22size#,1/22size#); "pion czarny z 91";
  971.   currentpicture := white_circle 
  972.        + digit[9] shifted (.5w-.9dig_w,11/24w-.5dig_h)  
  973.        + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  974. showit;
  975. endchar;
  976.  
  977. % stop"";
  978.  
  979. beginchar(92,24/22size#,23/22size#,1/22size#); "pion bialy z 92";
  980.   currentpicture := white_circle 
  981.        + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
  982.        + digit[2] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  983. showit;
  984. endchar;
  985.  
  986. % stop"";
  987.  
  988. beginchar(93,24/22size#,23/22size#,1/22size#); "pion czarny z 93";
  989.   currentpicture := white_circle 
  990.        + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h)  
  991.        + digit[3] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  992. showit;
  993. endchar;
  994.  
  995. % stop"";
  996.  
  997. beginchar(94,24/22size#,23/22size#,1/22size#); "pion bialy z 94";
  998.   currentpicture := white_circle 
  999.        + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
  1000.        + digit[4] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  1001. showit;
  1002. endchar;
  1003.  
  1004. % stop"";
  1005.  
  1006. beginchar(95,24/22size#,23/22size#,1/22size#); "pion czarny z 95";
  1007.   currentpicture := white_circle 
  1008.        + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h)  
  1009.        + digit[5] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  1010. showit;
  1011. endchar;
  1012.  
  1013. % stop"";
  1014.  
  1015. beginchar(96,24/22size#,23/22size#,1/22size#); "pion bialy z 96";
  1016.   currentpicture := white_circle 
  1017.        + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
  1018.        + digit[6] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  1019. showit;
  1020. endchar;
  1021.  
  1022. % stop"";
  1023.  
  1024. beginchar(97,24/22size#,23/22size#,1/22size#); "pion czarny z 97";
  1025.   currentpicture := white_circle 
  1026.        + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h)  
  1027.        + digit[7] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  1028. showit;
  1029. endchar;
  1030.  
  1031. % stop"";
  1032.  
  1033. beginchar(98,24/22size#,23/22size#,1/22size#); "pion bialy z 98";
  1034.   currentpicture := white_circle 
  1035.        + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h) 
  1036.        + digit[8] shifted (.5w+.1dig_w,11/24w-.5dig_h);
  1037. showit;
  1038. endchar;
  1039.  
  1040. % stop"";
  1041.  
  1042. beginchar(99,24/22size#,23/22size#,1/22size#); "pion czarny z 99";
  1043.   currentpicture := white_circle 
  1044.        + digit[9] shifted (.5w-1.1dig_w,11/24w-.5dig_h)  
  1045.        + digit[9] shifted (.5w+.1dig_w,11/24w-.5dig_h);  
  1046. showit;
  1047. endchar;
  1048.  
  1049. % stop"";
  1050.  
  1051. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1052.  
  1053. dig_w := .6dig_w;
  1054. dig_pen := .7dig_pen;
  1055.  
  1056. digit_zero; digit_one; digit_two; digit_three; digit_four;
  1057. digit_five; digit_six; digit_seven; digit_eight; digit_nine;
  1058.  
  1059. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  1060.  
  1061. beginchar(100,24/22size#,23/22size#,1/22size#); "pion bialy z 100";
  1062.   currentpicture := white_circle 
  1063.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1064.        + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1065.        + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1066. showit;
  1067. endchar;
  1068.  
  1069. % stop"";
  1070.  
  1071. beginchar(101,24/22size#,23/22size#,1/22size#); "pion czarny z 101";
  1072.   currentpicture := white_circle 
  1073.        + digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1074.        + digit[0] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1075.        + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1076. showit;
  1077. endchar;
  1078.  
  1079. % stop"";
  1080.  
  1081. beginchar(102,24/22size#,23/22size#,1/22size#); "pion bialy z 102";
  1082.   currentpicture := white_circle 
  1083.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1084.        + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1085.        + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1086. showit;
  1087. endchar;
  1088.  
  1089. % stop"";
  1090.  
  1091. beginchar(103,24/22size#,23/22size#,1/22size#); "pion czarny z 103";
  1092.   currentpicture := white_circle 
  1093.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  1094.        + digit[0] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  1095.        + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1096. showit;
  1097. endchar;
  1098.  
  1099. % stop"";
  1100.  
  1101. beginchar(104,24/22size#,23/22size#,1/22size#); "pion bialy z 104";
  1102.   currentpicture := white_circle 
  1103.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1104.        + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1105.        + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h); 
  1106. showit;
  1107. endchar;
  1108.  
  1109. % stop"";
  1110.  
  1111. beginchar(105,24/22size#,23/22size#,1/22size#); "pion czarny z 105";
  1112.   currentpicture := white_circle 
  1113.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1114.        + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1115.        + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1116. showit;
  1117. endchar;
  1118.  
  1119. % stop"";
  1120.  
  1121. beginchar(106,24/22size#,23/22size#,1/22size#); "pion bialy z 106";
  1122.   currentpicture := white_circle 
  1123.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1124.        + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1125.        + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1126. showit;
  1127. endchar;
  1128.  
  1129. % stop"";
  1130.  
  1131. beginchar(107,24/22size#,23/22size#,1/22size#); "pion czarny z 107";
  1132.   currentpicture := white_circle 
  1133.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  1134.        + digit[0] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  1135.        + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1136. showit;
  1137. endchar;
  1138.  
  1139. % stop"";
  1140.  
  1141. beginchar(108,24/22size#,23/22size#,1/22size#); "pion bialy z 108";
  1142.   currentpicture := white_circle 
  1143.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1144.        + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1145.        + digit[8] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1146. showit;
  1147. endchar;
  1148.  
  1149. % stop"";
  1150.  
  1151. beginchar(109,24/22size#,23/22size#,1/22size#); "pion czarny z 109";
  1152.   currentpicture := white_circle 
  1153.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1154.        + digit[0] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1155.        + digit[9] shifted (.5w+.5dig_w,11/24w-.5dig_h); 
  1156. showit;
  1157. endchar;
  1158.  
  1159. % stop"";
  1160.  
  1161. beginchar(110,24/22size#,23/22size#,1/22size#); "pion bialy z 110";
  1162.   currentpicture := white_circle 
  1163.        + digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1164.        + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1165.        + digit[0] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1166. showit;
  1167. endchar;
  1168.  
  1169. % stop"";
  1170.  
  1171. beginchar(111,24/22size#,23/22size#,1/22size#); "pion czarny z 111";
  1172.   currentpicture := white_circle 
  1173.        + digit[1] shifted (.5w-1.2dig_w,11/24w-.5dig_h)
  1174.        + digit[1] shifted (.5w-.5dig_w,11/24w-.5dig_h)
  1175.        + digit[1] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1176. showit;
  1177. endchar;
  1178.  
  1179. % stop"";
  1180.  
  1181. beginchar(112,24/22size#,23/22size#,1/22size#); "pion bialy z 112";
  1182.   currentpicture := white_circle 
  1183.        + digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1184.        + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1185.        + digit[2] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1186. showit;
  1187. endchar;
  1188.  
  1189. % stop"";
  1190.  
  1191. beginchar(113,24/22size#,23/22size#,1/22size#); "pion czarny z 113";
  1192.   currentpicture := white_circle 
  1193.        + digit[1] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1194.        + digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  1195.        + digit[3] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1196. showit;
  1197. endchar;
  1198.  
  1199. % stop"";
  1200.  
  1201. beginchar(114,24/22size#,23/22size#,1/22size#); "pion bialy z 114";
  1202.   currentpicture := white_circle 
  1203.        + digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1204.        + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1205.        + digit[4] shifted (.5w+.15dig_w,11/24w-.5dig_h); 
  1206. showit;
  1207. endchar;
  1208.  
  1209. % stop"";
  1210.  
  1211. beginchar(115,24/22size#,23/22size#,1/22size#); "pion czarny z 115";
  1212.   currentpicture := white_circle 
  1213.        + digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1214.        + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1215.        + digit[5] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1216. showit;
  1217. endchar;
  1218.  
  1219. % stop"";
  1220.  
  1221. beginchar(116,24/22size#,23/22size#,1/22size#); "pion bialy z 116";
  1222.   currentpicture := white_circle 
  1223.        + digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1224.        + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1225.        + digit[6] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1226. showit;
  1227. endchar;
  1228.  
  1229. % stop"";
  1230.  
  1231. beginchar(117,24/22size#,23/22size#,1/22size#); "pion czarny z 117";
  1232.   currentpicture := white_circle 
  1233.        + digit[1] shifted (.5w-1.4dig_w,11/24w-.5dig_h)
  1234.        + digit[1] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  1235.        + digit[7] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1236. showit;
  1237. endchar;
  1238.  
  1239. % stop"";
  1240.  
  1241. beginchar(118,24/22size#,23/22size#,1/22size#); "pion bialy z 118";
  1242.   currentpicture := white_circle 
  1243.        + digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1244.        + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1245.        + digit[8] shifted (.5w+.2dig_w,11/24w-.5dig_h);
  1246. showit;
  1247. endchar;
  1248.  
  1249. % stop"";
  1250.  
  1251. beginchar(119,24/22size#,23/22size#,1/22size#); "pion czarny z 119";
  1252.   currentpicture := white_circle 
  1253.        + digit[1] shifted (.5w-1.5dig_w,11/24w-.5dig_h)
  1254.        + digit[1] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1255.        + digit[9] shifted (.5w+.2dig_w,11/24w-.5dig_h); 
  1256. showit;
  1257. endchar;
  1258.  
  1259. % stop"";
  1260.  
  1261. beginchar(120,24/22size#,23/22size#,1/22size#); "pion bialy z 120";
  1262.   currentpicture := white_circle 
  1263.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1264.        + digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1265.        + digit[0] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1266. showit;
  1267. endchar;
  1268.  
  1269. % stop"";
  1270.  
  1271. beginchar(121,24/22size#,23/22size#,1/22size#); "pion czarny z 121";
  1272.   currentpicture := white_circle 
  1273.        + digit[1] shifted (.5w-1.6dig_w,11/24w-.5dig_h)
  1274.        + digit[2] shifted (.5w-.55dig_w,11/24w-.5dig_h)
  1275.        + digit[1] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1276. showit;
  1277. endchar;
  1278.  
  1279. % stop"";
  1280.  
  1281. beginchar(122,24/22size#,23/22size#,1/22size#); "pion bialy z 122";
  1282.   currentpicture := white_circle 
  1283.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1284.        + digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1285.        + digit[2] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1286. showit;
  1287. endchar;
  1288.  
  1289. % stop"";
  1290.  
  1291. beginchar(123,24/22size#,23/22size#,1/22size#); "pion czarny z 123";
  1292.   currentpicture := white_circle 
  1293.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  1294.        + digit[2] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  1295.        + digit[3] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1296. showit;
  1297. endchar;
  1298.  
  1299. % stop"";
  1300.  
  1301. beginchar(124,24/22size#,23/22size#,1/22size#); "pion bialy z 124";
  1302.   currentpicture := white_circle 
  1303.        + digit[1] shifted (.5w-1.75dig_w,11/24w-.5dig_h)
  1304.        + digit[2] shifted (.5w-.75dig_w,11/24w-.5dig_h) 
  1305.        + digit[4] shifted (.5w+.45dig_w,11/24w-.5dig_h);
  1306. showit;
  1307. endchar;
  1308.  
  1309. % stop"";
  1310.  
  1311. beginchar(125,24/22size#,23/22size#,1/22size#); "pion czarny z 125";
  1312.   currentpicture := white_circle 
  1313.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1314.        + digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1315.        + digit[5] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1316. showit;
  1317. endchar;
  1318.  
  1319. % stop"";
  1320.  
  1321. beginchar(126,24/22size#,23/22size#,1/22size#); "pion bialy z 126";
  1322.   currentpicture := white_circle 
  1323.        + digit[1] shifted (.5w-1.8dig_w,11/24w-.5dig_h)
  1324.        + digit[2] shifted (.5w-.8dig_w,11/24w-.5dig_h)
  1325.        + digit[6] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1326. showit;
  1327. endchar;
  1328.  
  1329. % stop"";
  1330.  
  1331. beginchar(127,24/22size#,23/22size#,1/22size#); "pion czarny z 127";
  1332.   currentpicture := white_circle 
  1333.        + digit[1] shifted (.5w-1.7dig_w,11/24w-.5dig_h)
  1334.        + digit[2] shifted (.5w-.7dig_w,11/24w-.5dig_h)
  1335.        + digit[7] shifted (.5w+.5dig_w,11/24w-.5dig_h);
  1336. showit;
  1337. endchar;
  1338.  
  1339. % stop"";
  1340.  
  1341. end;
  1342.  
  1343.